home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 071-080 / amok71 / antilinkvirus / testantilinkvirus.mod < prev    next >
Text File  |  1993-11-04  |  1KB  |  61 lines
  1. (**************************************************************************
  2.  
  3. :Program.       TestAntiLinkVirus
  4.  
  5. :Contents.      testet AntiLinkVirus, könnte z. Bsp. als "SetPatch" in der
  6. :Contents.      Startup-Sequence stehen (gefolgt vom echten SetPatch) und
  7. :Contents.      prüft sich beim Booten jedesmal auf einen Link-Virus.
  8.  
  9. :Usage.         TestAntiLinkVirus
  10.  
  11.  
  12. :Copyright.     Public Domain
  13.  
  14. :Author.        Thomas Ansorge
  15.  
  16. :Address.       Dinkelackerring 55, W-6730 Neustadt, Deutschland
  17.  
  18.  
  19. :Language.      Modula-2
  20.  
  21. :Translator.    M2Amiga V4.0 (deutsch)
  22.  
  23.  
  24. :Imports.       AntiLinkVirus [Thomas Ansorge]
  25.  
  26. :Support.       ReqSupport [Jürgen Zimmermann] in AntiLinkVirus
  27.  
  28.  
  29. :Version.       1.0 vom 22. Mai 1992
  30.  
  31. :History.       1.0 vom 22. Mai 1992: erste lauffähige Version
  32.  
  33.  
  34. :Bugs.          (mir derzeit nicht bekannnt)
  35.  
  36.  
  37. **************************************************************************)
  38.  
  39.  
  40. MODULE TestAntiLinkVirus;
  41.  
  42. FROM AntiLinkVirus IMPORT alvEvent, ALVEvent, ALVEventSet;
  43.  
  44. FROM Terminal IMPORT WriteLn, WriteString;
  45.  
  46. BEGIN
  47.  
  48. WriteLn;
  49. WriteString ("TestAntiLinkVirus ist ");
  50.  
  51. IF (alvEvent - ALVEventSet {alvVirusControl}) # ALVEventSet {} THEN
  52.    WriteString ("\e[33mverändert worden!\e[31m");
  53.  
  54. ELSE (* IF (alvEvent *)
  55.    WriteString ("ok.");
  56. END (* IF (alvEvent *);
  57.  
  58. WriteLn;
  59. WriteLn;
  60.  
  61. END TestAntiLinkVirus.